Dit voorbeeld gebruikt de functie StrConv om een tekenreeks in Unicode om te zetten in een ANSI-tekenreeks.
Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode) ' Converteert tekenreeks.
For i = 0 To UBound(x)
Debug.Print x(i)
Next